﻿Public Class frmTratadoraProcesarErrorConexion

    Private Sub frmTratadoraProcesarErrorConexion_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lblTitulo.Text = "No se descargó ningún archivo de la tratadora " & Chr(13) & "Puede haber algun problema de conexión"
    End Sub

    Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
        Me.Close()
    End Sub

    Private Sub btnDetalle_Click(sender As Object, e As EventArgs) Handles btnDetalle.Click

        Me.Close()

        Dim mensaje As String
        mensaje = "- Si es la primera vez que asocia datos solicite al administrador que verifique los datos cargados en los campos IP; USUARIO; CONTRASEÑA del perfil de la Tratadora."
        mensaje = mensaje & Chr(13) & Chr(13)
        mensaje = mensaje & " - Corrobore que la Tratadora se encuentra encendida al igual que el router."
        mensaje = mensaje & Chr(13) & Chr(13)
        mensaje = mensaje & " - Verifique que en el router, ubicado en el tablero de la Tratadora, se encienda el led correspondiente a la red de planta."
        mensaje = mensaje & Chr(13) & Chr(13)
        mensaje = mensaje & "- Si está conectado localmente verifique que su ordenador se encuentra en el rango IP de la Tratadora."

        MsgBox(mensaje, vbInformation + vbOKOnly, "Detalles de conexión")
    End Sub

End Class